Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue31/webcomm/HTSHOPC.DFM/HTSHOPC.txt

Text File | 1998-01-14 | 8.3 KB | 349 lines

inherited fmShopPanel: TfmShopPanel
  Left = 254
  Top = 211
  Width = 486
  Height = 293
  Caption = '&Shopping'
  PixelsPerInch = 120
  TextHeight = 16
  object Label7: TLabel [0]
    Left = 16
    Top = 144
    Width = 75
    Height = 16
    Caption = 'E-Mail From:'
  end
  inherited pa: TPanel
    Width = 478
    Height = 242
    object ToolBar: TtpToolBar
      Left = 5
      Top = 5
      Width = 468
      Height = 40
      Align = alTop
      TabOrder = 0
      LeaveSpace = False
      object tpToolButton1: TtpToolButton
        Left = 0
        Top = 1
        Width = 113
        Height = 28
        Hint = 'Toggle table display'
        Caption = 'Display the Table'
        ParentShowHint = False
        ShowHint = True
        OnClick = tpToolButton1Click
        LeaveSpace = False
        MinWidth = 24
      end
    end
    object tpComponentPanel2: TtpComponentPanel
      Left = 5
      Top = 45
      Width = 156
      Height = 192
      Align = alLeft
      TabOrder = 1
      object GroupBox1: TGroupBox
        Left = 1
        Top = 97
        Width = 154
        Height = 72
        Align = alTop
        Caption = 'EMail Feature'
        TabOrder = 0
      end
      object GroupBox2: TGroupBox
        Left = 1
        Top = 1
        Width = 154
        Height = 96
        Align = alTop
        Caption = 'Shopping Cart'
        TabOrder = 1
      end
    end
    object PageControl1: TPageControl
      Left = 161
      Top = 45
      Width = 312
      Height = 192
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 2
      object TabSheet1: TTabSheet
        Caption = '&Table'
        object DBGrid1: TDBGrid
          Left = 0
          Top = 0
          Width = 304
          Height = 136
          Align = alClient
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
        object DBNavigator1: TDBNavigator
          Left = 0
          Top = 136
          Width = 304
          Height = 25
          Align = alBottom
          TabOrder = 1
        end
      end
      object tsEConfig: TTabSheet
        Caption = 'Configure E-Mail'
        object Label4: TLabel
          Left = 16
          Top = 16
          Width = 75
          Height = 16
          Caption = 'E-Mail From:'
        end
        object Label5: TLabel
          Left = 16
          Top = 40
          Width = 61
          Height = 16
          Caption = 'E-Mail To:'
        end
        object Label6: TLabel
          Left = 24
          Top = 64
          Width = 56
          Height = 16
          Caption = 'Mail host:'
        end
        object Label8: TLabel
          Left = 32
          Top = 88
          Width = 27
          Height = 16
          Caption = 'Port:'
        end
        object Label9: TLabel
          Left = 24
          Top = 112
          Width = 48
          Height = 16
          Caption = 'Subject:'
        end
        object EditEMailFrom: TEdit
          Left = 88
          Top = 16
          Width = 121
          Height = 24
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          Text = 'EditEMailFrom'
        end
        object EditEMailTo: TEdit
          Left = 88
          Top = 38
          Width = 121
          Height = 24
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Text = 'EditEMailTo'
        end
        object EditMailhost: TEdit
          Left = 88
          Top = 60
          Width = 121
          Height = 24
          Hint = 'e.g. mail.sonic.net'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          Text = 'EditMailhost'
        end
        object EditSubject: TEdit
          Left = 88
          Top = 104
          Width = 121
          Height = 24
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          Text = 'EditSubject'
        end
        object EditMailPort: TEdit
          Left = 89
          Top = 83
          Width = 121
          Height = 24
          Hint = 'Port 25 is usually right.'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          Text = 'EditMailPort'
        end
      end
    end
  end
  object tpStatusBar1: TtpStatusBar
    Left = 0
    Top = 242
    Width = 478
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = False
  end
  object WebDataGrid1: TWebDataGrid
    tpOptions = [tpUpdateOnGet, tpStatusPanel]
    StatusBar = tpStatusBar1
    WebIni = fmWebAppMainForm.WebIniLink
    WebApp = fmWebAppMainForm.htWebApp
    DirectCallOk = False
    WebServer = fmWebAppMainForm.WebServer
    WebDataSource = WebDataSource1
    DataScanOptions = [dsFirst, dsPrior, dsNext, dsLast, dsCheckBoxes, dsInputFields]
    ScanMode = dsByKey
    ControlsWhere = dsbNone
    ButtonsWhere = dsbNone
    ButtonAutoHide = False
    OverlapScroll = False
    Border = 'BORDER'
    ShowRecno = False
    Preformat = False
    Left = 16
    Top = 68
  end
  object WebActionOrderList: TWebAction
    tpOptions = [tpUpdateOnLoad, tpStatusPanel]
    StatusBar = tpStatusBar1
    OnExecute = WebActionOrderListExecute
    DirectCallOk = False
    Left = 16
    Top = 100
  end
  object WebActionPostLit: TWebAction
    tpOptions = [tpUpdateOnLoad, tpStatusPanel]
    StatusBar = tpStatusBar1
    OnExecute = WebActionPostLitExecute
    DirectCallOk = False
    Left = 48
    Top = 100
  end
  object WebDataSource1: TWebDataSource
    tpOptions = [tpUpdateOnGet, tpStatusPanel]
    StatusBar = tpStatusBar1
    WebIni = fmWebAppMainForm.WebIniLink
    WebApp = fmWebAppMainForm.htWebApp
    DirectCallOk = False
    OpenDataSets = 0
    OpenDataSetRetain = 600
    MaxOpenDataSets = 1
    GotoMode = wgGotoKey
    SaveTableName = False
    DataSource = DataSource1
    KeyFieldNames = 'PartNo'
    Left = 48
    Top = 68
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 80
    Top = 68
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'PARTS.DB'
    Left = 112
    Top = 68
    object Table1PartNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'PartNo'
      DisplayFormat = 'PN-00000'
    end
    object Table1VendorNo: TFloatField
      FieldName = 'VendorNo'
      DisplayFormat = 'VN 0000'
      MaxValue = 9999.000000000000000000
      MinValue = 1000.000000000000000000
    end
    object Table1Description: TStringField
      FieldName = 'Description'
      Size = 30
    end
    object Table1OnHand: TFloatField
      FieldName = 'OnHand'
    end
    object Table1OnOrder: TFloatField
      FieldName = 'OnOrder'
    end
    object Table1Cost: TCurrencyField
      FieldName = 'Cost'
    end
    object Table1ListPrice: TCurrencyField
      FieldName = 'ListPrice'
    end
    object Table1Qty: TSmallintField
      FieldName = 'Qty'
      OnGetText = Table1QtyGetText
      Calculated = True
    end
  end
  object WebActionMailer: TWebAction
    tpOptions = [tpUpdateOnLoad, tpStatusPanel]
    StatusBar = tpStatusBar1
    OnExecute = WebActionMailerExecute
    DirectCallOk = False
    Left = 11
    Top = 156
  end
  object waScrollGrid: TWebAction
    tpOptions = [tpUpdateOnLoad, tpUpdateOnGet, tpStatusPanel]
    StatusBar = tpStatusBar1
    OnExecute = waScrollGridExecute
    WebIni = fmWebAppMainForm.WebIniLink
    WebApp = fmWebAppMainForm.htWebApp
    DirectCallOk = False
    Left = 86
    Top = 102
  end
  object WebCreditCard1: TWebCreditCard
    tpOptions = [tpUpdateOnLoad, tpUpdateOnGet, tpStatusPanel]
    StatusBar = tpStatusBar1
    OnExecute = WebCreditCard1Execute
    WebIni = fmWebAppMainForm.WebIniLink
    WebApp = fmWebAppMainForm.htWebApp
    DirectCallOk = False
    Respond = False
    Left = 54
    Top = 174
  end
  object WebactionQueueTransaction: TWebAction
    tpOptions = [tpUpdateOnLoad, tpUpdateOnGet, tpStatusPanel]
    StatusBar = tpStatusBar1
    OnExecute = WebactionQueueTransactionExecute
    WebIni = fmWebAppMainForm.WebIniLink
    WebApp = fmWebAppMainForm.htWebApp
    DirectCallOk = False
    Left = 86
    Top = 174
  end
  object ICVerifyTransactionQueuer: TICVerifyTransactionQueuer
    QueueDirectory = 'd:\h\dpr\dmart2\'
    Left = 118
    Top = 174
  end
  object tpDataModule1: TtpDataModule
    CloneMe = False
    Left = 113
    Top = 105
  end
end